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FACILITY: Pascal Language Support 

ABSTRACT: 

This module implements the Pascal PAGE procedure. 
ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

MODIFIED BY: 

i 
i 
be 


1-001 = Original. SBL 1-April-1981 
1-002 - Correct argument count check. SBL 21-Feb-1983 
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i a a a ts 


MSBTTL *Declarations’ 
PROLOGUE DEFINITIONS: 


REQUIRE *RTLIN:PASPROLOG'; 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
PASSPAGE2: NOVALUE; 
i MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 
FIELDS: 
NONE 
OWN STORAGE: 
NONE 
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! Externals, Linkages, PSECTs, structures 


! Skip to top of page 


PFV - The Pascal File Variable (PFV) passed Oe erat eee. 


ERROR - Optional. If specified, the address to unwind to 
in case of an error. 


The structure of the PFV is defined in 
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8000 PASBPAGES - Skip to top of page 122867 882 93:30:34 EPASRTL SRE PASPAGE2.B32;1 
; ZSBTTL ‘PASSPAGE2 - 3 to top of page' 

; 81 GLOBAL ROUTINE PASSPAGE2 ( 

3 8 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 

; § OR ! Error unwind address 

; 84 ): NOVALUE = 

; § 

ry &6 ee 

: a FUNCTIONAL DESCRIPTION: 

; «89 This procedure implements the Pascal PAGE procedure for textfiles. 

; It flushes the current buffer (if any), causes a ‘'page eject’’ in 

: 4! a manner appropriate for the carriage control, and begins a new Line. 

i; 9 CALLING SEQUENCE: 

3 95 CALL PASSPAGE2 (PFV.mr.r C, ERROR.j.r]]) 

; 44 FORMAL PARAMETERS: 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 
LINTOOLON = Line too long 
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BEGIN 

LOCAL 
FCB: REF S$PAS$FCB_CONTROL_BLOCK,! File Control block 
PFV_ADDR: VOLATILE, ! Enable argument 
UNWIND_ACT: VOLATILE, ' Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 

BIND 


Oe Se Oe Ge Oe Be Be Ge Se Se Se Se Se Se Ge Se ee Se Ge Be Se Se Ge Se Se Se Se Se Se Se Se Se Oe Se Se 


RAB = FCB: REF BLOCK C, BYTE); ! RAB is FCB 
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BUILTIN 
ACTUALCOUNT; ! Count of arguments 


- ENABLE 
as PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


14 
Get ERROR parameter, if present. 


of io ee () GEQU 2 
ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFVI; ! Set PFV address 
1+ 
Validate PFV and get PFV. 
PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 
1+ 
Set unwind action to unlock file. 
UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 
'¢ 
: Do common initialization. 
PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 


t+ 
If the buffer has a partial Line, flush it. 


M4 arte CFCBSA_RECORD_CUR] GTRA .FCB CFCBSA_RECORD_BEG) 
PASSSWRITELN (PFV CPFVS$R_PFV], FCB CFCBSR_FCB)); 
14 


i If buffer Length is zero, signal an error because there is no 
; room to put the page-eject character. 


09 09 09 00 09 09 SI NI NI SINS NS SO AAA AAA AAO AMM BS BEEP PEED 


@oo0e WAWG 
eS SORE BS SSN O ARAN LOO ONO AE WN HO OW NOU Rd DO D0 NOU EO OOOO 


a CFCBSL_RECORD_LEN) EQL 0 
SPASSIO_ERROR (PAS$_LINTOOLON,1,1); 
'¢ 


i If the carriagecontrol attribute is FIN, move a '1' to the first 
byte of the buffer, otherwise an <FF>. 
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94 BEGIN 
95 LOCAL 
FAB: REF BLOCK C, BYTE]; 


PIPIPIPINPINYIDIPYNSPINPININININPYNINININININPONYININ 2 OO 
MMR eae ee eeha neo bab eh eke ee ee ae 

WN "SO OONAVE WN“ OVOONOUES WH OOM 
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00 0009 098 SIN SI NI NINN NS NAO AO AOA OOOMIUTIVTMN 
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=MIPINPIPONPONPINPNINPONIPoNoNPoPofononoponor%y 


FAB = .RAB CRABS$L FAB]; ! Get FAB address 
IF FA CFABSV_FTRI 


Lge CHSWCHARLA (XC'1', FCB CFCBSA_RECORD_CUR3) 
np; CHSWCHARAA (AX"OC*, FCB CFCBSA_RECORD_CURI) ; 


'¢ 
Do a WRITELN to write the record. 


PASSSWRITELN (PFV CPFVSR_PFV], FCB CFCBSR_FCBI); 
4 
!' Undefine the file buffer. 


! Indicate successful completion 
Unlock the file variable. 


FCB CFCBSL_STATUS) = 0; 
PFV CPFV$V-DFB) = 0; 
PFV CPFV$VILOCK] = 0; 
RETURN; 


END; ! End of routine PASS$PAGE2 
LE PASS$PAGE2 PAGE procedure 
\1-002\ 


TRN PASSPAGE2, PASS$$IO_HANDLER 
TE _PFV 


"EXTRN PASSSINIT WRITE 
“EXTRN PASSSWRITELN, PASSSSIGNAL 
“EXTRN PASS$K_LINTOOLON 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
Pio PASSPAGE2, Save R2,R3,R4,R5,R6,R7,R8,RI 


PASSSWRITELN, R9 


#8, 
CLRL ERROR_ADDR 
CLRQ UNWINB_ACT 
MOVAL 6$, (FP) 
C (AP), #2 


MOVL ERROR, ERROR_ADDR 
1$: MOVL  PFV, R6 
R6, PFV_ADDR 
JSB PASSSVACIDATE_PFV 
MOVL #1, UNWIND AC 
PASSSINIT_QRITE 
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3; Routine Size: 
: 226 
ae 


PAG 
PAS 


15 


028 
028 


3 Rrosedur 
PAGE2 - Skip to top of page 


E8 


000000006 


00 
00 


06 


58 
A? 


vw 
oo 


7E 
000000006 00 


5 bytes, 


oy 
6 1 !<BLF/PAGE> 


Routine Base: 


EC A? YE 00 
68 Di 00 

Oe 1B 00 

69 16 00 

F4 =A? «ODS 00 
10 12 00 

01 dD 00 

01 dD 00 

00G 8F 9A 00 
03 FB 00 

04 00 

3¢ = A?-—s«éO 88 
1—€ AO €E9 00 
31 90 00 

04 11 00 

OC 90 00 

68 06 00 

69 16 00 

D A7 04 00 
8002 8F AA 00 
04 00 

0000 00 

08 AC 00 00 
04 AO 00 00 
F4 AO YF 00 
F8 AQ YF 00 
FC AQ 9F 00 
03 DD 00 

5E Dd 00 

04 AC 7D 00 
03 FB 00 

04 00 


PASSCODE + 0000 
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037 MOVAB <20¢F CB) 
038 CMPL (RB), Bhs fee) 
O3F BLEQU§ 2$ 
041 JSB PASSS$WRITELN 
043 2$: TSTL -12(F CB) 
046 BNEQ 3$ 
048 PUSHL #1 
O4A PUSHL #1 
04¢ MOVZBL #PASS$K_LINTOOLON, -(SP) 
050 CALLS #3, PASSS$SIGNAL 
057 RET 
058 3$ MOVL O(FCB), FAB 
05¢ BLBC O(FA 4$ 
060 MOVB #49, MB OCRE) 
064 BRB 5$ 
066 4$ MOVB #12, a0(R8) 
06A 5$ INCL R 
06C JSB PASSSWRITELN 
06E CLRL FCB) 
071 BICW2 #32770, 6(R6) 
077 RET 
078 6$ -WORD Save nothing 
O7A MOVL BCA) RO 
O7E MOVL 4(RO), RO 
082 PUSHAB ERROR_ADDR 
085 PUSHAB UNWIND_ACT 
088 PUSHAB PFV_ADBR 
088 PUSHL #3 
08D PUSHL SP 
O8F MOVQ 4(AP), -(SP) 
093 CALLS #3, PAS$$10_ HANDLER 
O9A RET 


vee9 "238 
2.832;1 


BeBe Be Be Be Be Be Be Be Se Se Se Se Se Se Se Se Fe Be Be Be Fe Se Fe Se Se Be Ge Se Be Fe Se 


16 
PASSPAGE2 PAGE procedure 1hese -1984 01:50:54 AX-11 Bliss-32 vV4.0-74 Pa 
800 PASEPRGE - Skip to top of page 12-8 08- 1 3be 03:20:24 YOASRTL SRe PASPAGE2.B32;1 vas 


7 0287 1 END ! End of module PASS$PAGE2 
356 0988 | 
9 89 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 155 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Souseowe Symbols -------- Pages Processing 

File Total Loaded Percent Mapped Time 
mitts: Hits tee eee 9776 2 0 581 00:01.0 
~5255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 92 21 33 00:00.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:PASPAGE2/0BJ=0BJ$:PASPAGE2 MSRC$:PASPAGE 2/UPDATE=(ENH$: PASPAGE 2) 


230 0290 
; Size: 155 code + 0 data bytes 
; Run Time: 99297 -2 


; Elapsed Time: 093) 
; Lines/CPU Min: 047 
; Lexemes/CPU-Min: 12451 
: mee Used: 84 pages 
; Compilation Complete 


ENT CORPORATION 
ND PROPRIETARY | 


099 VAx/vMS V4.0 


